www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminTemplates\D_chk_copy_moban.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>




<LINK href="../css.css" type=text/css rel=stylesheet>
<%

dir_set="../../"


%>


<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->

<!--#include file=../../inc/ajaxLIB.asp-->

<!--#include file=../inc/checkadmin2.asp-->

<!--#include file=../../inc/functionFiless.asp-->





<%
AJAXshowLoader()


%>
<%


if find_dataw("qitashezhi123","0",6)<>"1" and qx_if_max=0 then
response.redirect "../D_suodinguser.asp"
end if

%>

<%



set filea=new Cls_FSO



if trim(request("fnm"))="" then
%>






<script language=javascript>
alert("复制失败,必须填写 复制到哪");



history.go(-1);

</script>









<%



else


ssss="/"
if trim(request("fpath"))<>"" then
if right(trim(request("fpath")),1)="/" then ssss=""


else

ssss=""

end if


ssss=""

if filea.ReportFileStatus(server.mappath("../../templates/"&request("ggga1")&"/"&ssss&request("fnm")))=1 then





%>


<script language=javascript>
alert("复制失败,因为目标文件 与已有文件重名");



self.location="D_edit_admin_zi_templates.asp?fpath=<%=request("fpath")%>&pid=<%=request("pid")%>";

</script>



<%



else











'以下用来 支持 无限级 创建目录
call createfile("../../templates/"&request("ggga1")&"/"&ssss&request("fnm"),"1111",true)



call deletefile("../../templates/"&request("ggga1")&"/"&ssss&request("fnm"))




ssss="/"
if trim(request("fpath"))<>"" then
if right(trim(request("fpath")),1)="/" then ssss=""


else

ssss=""

end if




set a=new Cls_FSO 
if a.CopyAFile(server.mappath("../../templates/"&request("ggga1")&"/"&request("fpath")&ssss&request("yuanf")),server.mappath("../../templates/"&request("ggga1")&"/"&request("fnm")))=1 then

ssss=""

sssp=request("fnm")
sssspq=split(sssp,"/")

ooosss=""

for iii=0 to ubound(sssspq)-1

ooosss=ooosss&sssspq(iii)&"/"



next



'=ooosss2






%>
<script language=javascript>
alert("复制成功");

self.location="D_edit_admin_zi_templates.asp?fpath=<%=ooosss%>&pid=<%=request("pid")%>";

</script>





<%





else

%>


<script language=javascript>
alert("复制失败");


alert("<%="../../templates/"&request("ggga1")&"/"&request("fpath")&ssss&request("yuanf")%>")
//self.location="D_edit_admin_zi_templates.asp?fpath=<%=request("fpath")%>&pid=<%=request("pid")%>";

</script>








<%





end if

end if
end if





AJAXcloseLoader()
%>